"192.168.0.1:sipop"

PATOLOGIAS_BU2

Descriptions

There is no desription for trigger PATOLOGIAS_BU2

Definition

CREATE TRIGGER PATOLOGIAS_BU2 FOR PATOLOGIAS ACTIVE
BEFORE UPDATE POSITION 1
AS
declare variable vPADRE INTEGER;
BEGIN
  IF (NEW.ID_PADRE_PATOLOGIA IS NULL or (NEW.ID_PADRE_PATOLOGIA ='PADRE')) THEN
  BEGIN
/* ESTE VALOR INDICA QUE SE TRATA DE UN PADRE */
  NEW.ID_PADRE_PATOLOGIA='PADRE';
  END
ELSE
  BEGIN
      SELECT ID_PATOLOGIAS FROM PATOLOGIAS
      WHERE
           ID_PATOLOGIAS = NEW.ID_PADRE_PATOLOGIA
      INTO:vPADRE;

     if (vPADRE IS NULL) then
       BEGIN
           NEW.ID_PADRE_PATOLOGIA ='PADRE';
           EXCEPTION exception_padrenoexiste;
       END
     ELSE
       BEGIN
          NEW.ID_PADRE_PATOLOGIA =vPADRE;
       END
    END

END

This file was generated with EMS InterBase/FireBird Manager (www.ibmanager.com) at 09/06/2005 05:52 p.m.